Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/eulisp/comp0_89.lha/Feel/Boot/Compiler/link2.sc

Text File | 1993-07-16 | 7KB | 1 lines

(dependencies (standard0 list-fns comp-defn stream) names (link2) length 1380 nslots 7 code ((36 (%%-big-arg-%% 17)) (5 (%%-big-arg-%% 0)) (3 0) (31 (%%-big-arg-%% 130)) (17 1) (36 (%%-big-arg-%% 27)) (5 (%%-big-arg-%% 0)) (4 (%%-static-%% . 9)) (46) (1 (%%-link-me-%% boot . make-installed-module)) (34 2) (36 (%%-big-arg-%% 60)) (5 (%%-big-arg-%% 0)) (8 3) (4 (%%-static-%% . 7)) (5 (%%-me-local--%% . mk-local-id-mker)) (3 0) (39) (8 0) (5 (%%-me-local--%% . link-vector-to-stream)) (3 0) (39) (28 1) (5 (%%-me-local--%% . link-vector)) (3 0) (39) (28 1) (17 1) (1 (%%-link-me-%% boot . install-local-bindings)) (34 3) (17 1) (36 (%%-big-arg-%% 28)) (5 (%%-big-arg-%% 1)) (8 3) (4 (%%-static-%% . 8)) (1 (%%-link-me-%% boot . make-interface)) (34 2) (17 1) (14 2 1) (37) (22 0) (3 0) (7 (%%-me-local--%% . xx)) (36 (%%-big-arg-%% 1159)) (11) (4 (%%-static-%% . 0)) (5 (%%-big-arg-%% 0)) (39) (51 3) (7 (%%-me-local--%% . link-vector)) (36 (%%-big-arg-%% 592)) (11) (4 (%%-static-%% . 0)) (6 1) (39) (51 4) (7 (%%-me-local--%% . link-vector-to-stream)) (36 (%%-big-arg-%% 560)) (11) (4 (%%-static-%% . 0)) (6 2) (39) (51 2) (7 (%%-me-local--%% . get-non-local-id)) (36 (%%-big-arg-%% 288)) (11) (4 (%%-static-%% . 0)) (6 3) (39) (51 3) (7 (%%-me-local--%% . mk-local-id-mker)) (36 (%%-big-arg-%% 256)) (11) (4 (%%-static-%% . 0)) (6 4) (39) (51 2) (7 (%%-me-local--%% . get-local-id)) (36 (%%-big-arg-%% 25)) (11) (4 (%%-static-%% . 0)) (6 5) (39) (51 1) (7 (%%-me-local--%% . int2bytes)) (18) (3 1) (37) (1 (%%-link-me-%% arith . <)) (11) (4 (%%-static-%% . 4)) (3 0) (39) (62 -2) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% numbers . abs)) (8 5) (10) (33 1) (1 (%%-link-me-%% arith . /)) (10) (4 (%%-static-%% . 5)) (3 0) (62 -3) (1 (%%-link-me-%% arith . /)) (10) (4 (%%-static-%% . 5)) (3 0) (62 -3) (1 (%%-link-me-%% arith . /)) (10) (4 (%%-static-%% . 5)) (3 0) (62 -3) (18) (36 (%%-big-arg-%% 23)) (1 (%%-link-me-%% numbers . modulo)) (12) (4 (%%-static-%% . 5)) (11) (33 2) (3 0) (39) (9) (36 (%%-big-arg-%% 24)) (1 (%%-link-me-%% numbers . modulo)) (8 6) (4 (%%-static-%% . 5)) (11) (33 2) (3 0) (39) (29) (36 (%%-big-arg-%% 24)) (1 (%%-link-me-%% numbers . modulo)) (8 7) (4 (%%-static-%% . 5)) (11) (33 2) (3 0) (39) (29) (8 5) (32 (%%-big-arg-%% 15)) (4 (%%-static-%% . 6)) (31 (%%-big-arg-%% 10)) (4 (%%-static-%% . 4)) (3 0) (39) (29) (18) (15 7) (37) (11) (26) (13 3) (18) (16) (9) (13 3) (33 1) (22 4) (12) (20 0 0) (10) (20 0 1) (1 (%%-link-me-%% tables . make-table)) (1 (%%-link-me-%% boot . eq)) (3 0) (39) (62 -1) (10) (16) (20 0 3) (18) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% list-fns . mk-counter)) (8 5) (10) (34 1) (10) (16) (20 0 2) (18) (36 (%%-big-arg-%% 11)) (11) (40 1) (15 5) (37) (36 (%%-big-arg-%% 23)) (1 (%%-link-me-%% table . table-ref)) (12) (19 0 3) (8 5) (11) (33 2) (9) (42) (32 (%%-big-arg-%% 134)) (36 (%%-big-arg-%% 12)) (12) (19 0 2) (9) (33 0) (36 (%%-big-arg-%% 37)) (1 (%%-link-me-%% extras0 . format)) (3 1) (4 (%%-static-%% . 3)) (8 8) (3 0) (39) (9) (8 7) (3 0) (39) (29) (18) (12) (34 -3) (18) (36 (%%-big-arg-%% 43)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . setter)) (1 (%%-link-me-%% table . table-ref)) (10) (33 1) (8 5) (19 0 3) (8 7) (8 5) (12) (33 3) (18) (36 (%%-big-arg-%% 17)) (8 4) (19 0 1) (8 6) (8 4) (11) (33 2) (18) (11) (19 0 0) (3 0) (39) (9) (11) (3 0) (39) (29) (18) (15 5) (37) (10) (19 0 0) (3 0) (39) (9) (11) (3 0) (39) (29) (18) (15 4) (37) (11) (27) (13 3) (18) (16) (9) (13 3) (33 1) (22 2) (12) (20 0 0) (11) (20 0 1) (3 0) (8 5) (12) (12) (14 9 4) (31 (%%-big-arg-%% 444)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% numbers . numberp)) (8 4) (10) (33 1) (32 (%%-big-arg-%% 12)) (10) (3 0) (39) (15 3) (37) (10) (26) (36 (%%-big-arg-%% 17)) (1 (%%-link-me-%% comp-defn . the-link-handle)) (9) (34 0) (43) (32 (%%-big-arg-%% 144)) (10) (27) (26) (36 (%%-big-arg-%% 17)) (1 (%%-link-me-%% comp-defn . the-local-handle)) (9) (34 0) (43) (32 (%%-big-arg-%% 35)) (36 (%%-big-arg-%% 25)) (4 (%%-me-local--%% . get-local-id)) (12) (19 0 0) (8 5) (27) (27) (3 0) (31 (%%-big-arg-%% -399)) (31 (%%-big-arg-%% 29)) (36 (%%-big-arg-%% 24)) (4 (%%-me-local--%% . get-non-local-id)) (12) (19 0 0) (8 5) (27) (3 0) (31 (%%-big-arg-%% -166)) (1 (%%-link-me-%% boot . nconc)) (36 (%%-big-arg-%% 20)) (4 (%%-me-local--%% . int2bytes)) (8 4) (26) (3 0) (31 (%%-big-arg-%% -667)) (36 (%%-big-arg-%% 21)) (4 (%%-me-local--%% . int2bytes)) (8 5) (27) (26) (3 0) (31 (%%-big-arg-%% -688)) (11) (14 7 3) (9) (13 4) (34 2) (10) (26) (36 (%%-big-arg-%% 17)) (1 (%%-link-me-%% comp-defn . the-long-handle)) (9) (34 0) (43) (32 (%%-big-arg-%% 28)) (4 (%%-me-local--%% . int2bytes)) (11) (27) (26) (14 4 2) (16) (9) (13 3) (18) (3 0) (31 (%%-big-arg-%% -745)) (10) (26) (36 (%%-big-arg-%% 17)) (1 (%%-link-me-%% comp-defn . the-static-handle)) (9) (34 0) (43) (32 (%%-big-arg-%% 40)) (4 (%%-me-local--%% . int2bytes)) (36 (%%-big-arg-%% 15)) (12) (19 0 1) (8 5) (27) (10) (33 1) (14 4 2) (16) (9) (13 3) (18) (3 0) (31 (%%-big-arg-%% -805)) (10) (26) (36 (%%-big-arg-%% 17)) (1 (%%-link-me-%% comp-defn . the-local-handle)) (9) (34 0) (43) (32 (%%-big-arg-%% 52)) (4 (%%-me-local--%% . int2bytes)) (36 (%%-big-arg-%% 25)) (4 (%%-me-local--%% . get-local-id)) (8 4) (19 0 0) (8 6) (27) (3 0) (31 (%%-big-arg-%% -650)) (27) (26) (14 4 2) (16) (9) (13 3) (18) (3 0) (31 (%%-big-arg-%% -877)) (36 (%%-big-arg-%% 29)) (1 (%%-link-me-%% extras0 . format)) (3 1) (4 (%%-static-%% . 1)) (8 6) (3 0) (39) (12) (34 -3) (18) (1 (%%-link-me-%% init . error)) (4 (%%-static-%% . 2)) (1 (%%-link-me-%% errors . <clock-tick>)) (3 0) (12) (14 7 4) (9) (13 5) (34 -3) (12) (42) (32 (%%-big-arg-%% 30)) (11) (42) (32 (%%-big-arg-%% 9)) (18) (15 3) (37) (11) (26) (12) (27) (12) (12) (14 8 4) (31 (%%-big-arg-%% -27)) (12) (27) (12) (36 (%%-big-arg-%% 36)) (1 (%%-link-me-%% stream . write-stream-list)) (8 6) (36 (%%-big-arg-%% 17)) (3 0) (8 12) (26) (8 10) (31 (%%-big-arg-%% -502)) (11) (33 2) (12) (14 8 4) (31 (%%-big-arg-%% -75)) (36 (%%-big-arg-%% 17)) (1 (%%-link-me-%% stream . make-simple-stream)) (9) (34 0) (1 (%%-link-me-%% extras0 . convert)) (36 (%%-big-arg-%% 26)) (4 (%%-me-local--%% . link-vector-to-stream)) (8 8) (8 8) (8 8) (8 7) (8 4) (26) (31 (%%-big-arg-%% -590)) (1 (%%-link-me-%% standard0 . pair)) (11) (14 9 3) (9) (13 4) (34 2)) statics (link2 "~a~%" "Whups" "(~a->~a)" 0 256 1 (mk-local-id-mker link-vector-to-stream link-vector) ((strip (union (import standard0) (import list-fns) (import comp-defn) (import stream))) mk-local-id-mker link-vector-to-stream link-vector) link2))